home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / cnet_toolkit.lha / Guidelines4_BEV < prev    next >
Text File  |  1997-04-05  |  993b  |  17 lines
  1. /**/;options results;tr=transmit;gu=getuser;se=sendstring
  2. gu 1212088;sub=result;gu 1412312;a=import(offset(null(),result+sub*696),696)
  3. b=left(a,60);parse var b base"00"x;hand=c2d(substr(a,375,1))
  4. priv=c2d(substr(a,383,1));anon=c2d(substr(a,377,1))
  5. iday=c2d(substr(a,373,2),2);ansi=c2d(substr(a,382,1))
  6. sigs=c2d(substr(a,390,1));o=substr(a,561,60);parse var o orig"00"x;tr "f1"
  7. tr center("cbGuidelines for cd"base,84)"n1c7u1"copies(" ",78)"u0"
  8. tr "z6"copies(" ",78)"z0"
  9. se "z6c4   Handles Allowed: c1"left(word("Yes No",(hand=5)+1),5)
  10. se "c4    ANSI/MCI Allowed: c1"left(word("No Yes",ansi+1),5)
  11. tr "c4Signatures Allowed: c1"left(word("No Yes",sigs+1),5)" z0"
  12. se "z6c4  Private Messages: c1"left(word("No Yes Force",priv+1),5)
  13. se "c4  Anonymous Messages: c1"left(word("No Yes Force",anon+1),5)
  14. tr "c4   Inactivity Days: c1"left(iday,5)" z0"
  15. if orig>"" then tr "z6"copies(" ",78)"z0n1z6c4 "center("Origin: c1"orig,79)" z0"
  16. tr "z6c4u1"copies(" ",78)"u0z0q1"
  17.